home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / irc / KuangEleven3Gm.lha / Kuang Eleven 3 / Install Kuang Eleven < prev    next >
Text File  |  1998-05-24  |  17KB  |  566 lines

  1. ; Kuang Eleven Install Script
  2. ; Copyright Ariel Magnum 1998
  3. ; $VER: Kuang_Eleven_Installer 1.0 (23.5.98)
  4. (complete 0)
  5. ;** Set some of the strings
  6.  
  7. (set #K11Ver "3.0 Gamma")
  8. (set #defamircdir (getenv "Vapor/AMIRC_LASTUSEDDIR"))
  9. (set #betanote "\n\nMake sure to read ReadMeFirst.txt in this directory.")
  10. (set #about (cat "\n\nWelcome to the Kuang Eleven " #K11Ver " installation.\n\nThe installer will now install some system files,Kuang Eleven scripts and installation data to your AmIRC directory.\nLastly it will launch AmIRC to finalise the installation.\n\nNOTE : PLEASE SHUT DOWN ALL AMIRC WINDOWS NOW OR THE INSTALLER WILL CLOSE THEM DOWN FOR YOU LATER!" #betanote))
  11. (set #RunAmIRC "\n\nThe Installer will now run AmIRC to finalise the Installation.\n\Final stage installation will begin automatically upon starting AmIRC.\n\nPlease focus on the AmIRC application and enter your choices for customising Kuang Eleven.\nPlease do not connect to a server or do any other mischief ;)\nLoading AmIRC may take a few seconds...")
  12. (set #MinVer "\n\nKuang Eleven requires AmIRC version 2.x.\nYou must upgrade your AmIRC to use this version of Kuang Eleven.")
  13. (set #deltemp "\n\nDelete temporary installation file which has been installed on your system.\n")
  14. (set #whereAmIRC "Locate the drawer where AmIRC is Installed.\nIf you don't have AmIRC Installed,Kuang Eleven will be useless to you.")
  15. (set #noprogfile "\n\nI am not able to find your AmIRC program file which should be :\n")
  16. (set #backupAmIRC "\n\nWould you like to backup your entire AmIRC directory now before installing Kuang Eleven?\nThis will probably take some diskspace!")
  17. (set #wherebackup "Where would you like to place the backup?\nA directory called AmIRC_OLD_DIR will be created here.")
  18. (set #workbackup "Backing up AmIRC directory to\n")
  19. (set #MovingPlugin "Discovered AmIRC's XDCC plugin and moved it to UnusedPlugins directory.\n")
  20. (set #MovingPluginConfiguration "Discovered AmIRC's XDCC plugin configuration and moved it to UnusedPlugins directory.\n")
  21. (set #delold "Removing Uneeded file from old installation\n")
  22. (set #askconfig "Select your AmIRC configuration file.\nThis is by default Default.AmIRCfg\nIf it is, click proceed now,no need to select.")
  23. (set #launchmodfier "Launching a program that will modify your AmIRC configuration for Kuang Eleven.\nYour Config file will be backed-up.\nThis takes about 20 seconds.")
  24. (set #wheresounddir "Locate your AmIRC sounds directory")
  25. (set #modifyamircfg "Modifying AmIRC configuration.\nThis may take a few seconds...")
  26. (set #installhelp "Installing Kuang Eleven 3 docs")
  27. (set #nomultiview "Unable to find SYS:Utilities/Multiview to show preview of button bar")
  28. (set #kuangwashere 1)
  29. (set #installaliases 0)
  30. (set #installsounds "Would you like to install the Kuang Eleven sounds to your AmIRC sounds directory?\nSome functions of Kuang Eleven may not work corectly without them.")
  31. (message #about (all))
  32. (welcome)
  33. (set AmIRCdir  (askdir (prompt #whereAmIRC)
  34.                (help)
  35.                 (default #defamircdir)
  36.                  )
  37. )
  38. (set @execute-dir AmIRCdir)
  39.  
  40. ;** Do perliminary tests
  41.  
  42. (set #AmiRCexec (tackon AmIRCdir "AmIRC"))
  43. (if (< (exists #AmIRCexec) 1) (exit (cat #noprogfile #AmIRCexec) (quiet)) )
  44. (set @default-dest AmIRCdir)
  45. (set amircvernum (getversion #AmIRCexec))
  46. (set amircver (/ amircvernum 65536))
  47. (set amircrev (- amircvernum (* amircver 65536)))
  48. (if (< amircver 2)
  49.     (exit #MinVer (quiet))
  50.     )
  51.  
  52. ;** Backup AmIRC directory
  53.  
  54. (if (askbool (prompt #backupAmIRC) (help) (default 0))
  55.     (
  56.         (set #backupdir (tackon (askdir (prompt #wherebackup) (help) (default (expandpath (tackon AmIRCdir "/")))) "AmIRC_OLD_DIR"))
  57.         (if (< (exists #backupdir) 2) (makedir #backupdir))
  58.         (working (cat #workbackup #backupdir))
  59.         (copyfiles
  60.             (prompt (cat "Copying AmIRC directory to\n" #backupdir))
  61.             (help @copyfiles-help)
  62.             (source AmIRCdir)
  63.             (dest #backupdir)
  64.             (confirm)
  65.             (all)
  66.             (optional nofail)
  67.         )
  68.     )
  69. )
  70. ;** Create directory
  71.  
  72. (set #dest (tackon AmIRCdir "Kuang11"))
  73. (if (< (exists #dest) 2)
  74.     (
  75.     (set #kuangwashere 0)
  76.     (makedir #dest)
  77.     )
  78. )
  79. (set #k11dir #dest)
  80.  
  81. (complete 1)
  82.  
  83. ;** Start main installation
  84.  
  85. ;** Install Executables
  86.  
  87. (Working "Installing Libraries")
  88. (foreach "InstallData" "#?.library"
  89.     (
  90.         (set #srcfile (tackon "Installdata" @each-name))
  91.         (copylib
  92.             (prompt (cat "Install Library\n" #srcfile "\nto LIBS:"))
  93.             (help @copylib-help)
  94.             (source #srcfile)
  95.             (dest "LIBS:")
  96.             (confirm)
  97.             (optional fail)
  98.         )
  99.     )
  100. )
  101. (complete 4)
  102.  
  103. (Working "Installing Muirexx")
  104. (set #srcfile (tackon "Installdata" "MuiRexx"))
  105. (copylib
  106.         (prompt "Install MUIREXX executable\nDirectory MUST be SYS:REXXC")
  107.         (help @copylib-help)
  108.         (source #srcfile)
  109.         (dest "SYS:REXXC")
  110.         (confirm)
  111.         (optional fail)
  112. )
  113. (complete 5)
  114.  
  115. (set #srcfile (tackon "Installdata" "Icon.mcc"))
  116. (copylib
  117.         (prompt "Install MUIREXX support file Icon.mcc")
  118.         (help @copylib-help)
  119.         (source #srcfile)
  120.         (dest "mui:libs/mui")
  121.         (confirm)
  122.         (optional fail)
  123. )
  124. (complete 6)
  125.  
  126. (set #srcfile (tackon "Installdata" "Kuang11Alias.AmIPlug"))
  127. (copylib
  128.         (prompt "Install Kuang Eleven Aliases Plugin")
  129.         (help @copylib-help)
  130.         (source #srcfile)
  131.         (dest (tackon AmIRCdir "Plugins"))
  132.         (confirm)
  133.         (optional fail)
  134. )
  135. (complete 8)
  136.  
  137. (set #srcfile (tackon "Installdata" "ZED_HTTPGET"))
  138. (copylib
  139.         (prompt "Install Kuang Eleven httpget executable")
  140.         (help @copylib-help)
  141.         (source #srcfile)
  142.         (dest "C:")
  143.         (confirm)
  144.         (optional fail)
  145. )
  146. (complete 10)
  147.  
  148. ;** Install Kuang Eleven Data files if needed
  149.  
  150. (set #helpstring "Installing Kuang Eleven generic configuration")
  151. (Working #helpstring)
  152. (set #dest (tackon #k11dir "Config"))
  153. (if (= (exists  #dest) 0) (copyfiles
  154.     (prompt #helpstring)
  155.     (help @copyfiles-help)
  156.     (source "InstallData/Config")
  157.     (dest #k11dir)
  158.     (confirm)
  159.     (optional fail)
  160. ))
  161. (complete 11)
  162.  
  163. (set #helpstring "Installing Kuang Eleven image files")
  164. (Working #helpstring)
  165.  
  166. (set #dest (tackon #k11dir "Images"))
  167. (if (= (exists  #dest) 0) (makedir #dest))
  168.  
  169. (copyfiles
  170.     (prompt #helpstring)
  171.     (help @copyfiles-help)
  172.     (source "InstallData/Images")
  173.     (dest #dest)
  174.     (confirm)
  175.     (all)
  176.     (optional fail)
  177. )
  178. (complete 12)
  179.  
  180. (set #helpstring "Installing Kuang Eleven Away Reasons file")
  181. (Working #helpstring)
  182.  
  183. (set #dest (tackon #k11dir "AwayReasons"))
  184. (if (= (exists  #dest) 0) (copyfiles
  185.     (prompt #helpstring)
  186.     (help @copyfiles-help)
  187.     (source "InstallData/AwayReasons")
  188.     (dest #k11dir)
  189.     (confirm)
  190.     (optional fail)
  191. ))
  192. (complete 13)
  193.  
  194. (set #helpstring "Installing empty Custom_CTCP.amirx to suppress unknown CTCP commands alarms")
  195. (Working #helpstring)
  196.  
  197. (set #dest (tackon AmIRCdir "Rexx/Custom_CTCP.amirx"))
  198. (if (= (exists  #dest) 0) (copyfiles
  199.     (prompt #helpstring)
  200.     (help @copyfiles-help)
  201.     (source "InstallData/Custom_CTCP.amirx")
  202.     (dest (pathonly #dest))
  203.     (confirm)
  204.     (optional fail)
  205. ))
  206. (complete 14)
  207.  
  208. ;** Takeout the AmIRC XDCC Plugin
  209.  
  210. (working #MovingPlugin)
  211. (if (= (exists (tackon AmIRCdir "Plugins/xdcc.amiplug")) 1)
  212.     (
  213.         (if (< (exists (tackon AmIRCdir "UnusedPlugins")) 2) (makedir (tackon AmIRCdir "UnusedPlugins")))
  214.         (if (> (exists (tackon AmIRCdir "UnusedPlugins/xdcc.amiplug")) 0) (delete (tackon AmIRCdir "UnusedPlugins/xdcc.amiplug")))
  215.         (rename (tackon AmIRCdir "Plugins/xdcc.amiplug") (tackon AmIRCdir "UnusedPlugins/xdcc.amiplug") (confirm) (prompt #MovingPlugin) (help))
  216.     )
  217. )
  218. (complete 15)
  219.  
  220. (working #MovingPluginConfiguration)
  221. (if (= (exists (tackon AmIRCdir "Plugins/XDCC_Prefs")) 1)
  222.     (
  223.         (if (< (exists (tackon AmIRCdir "UnusedPlugins")) 2) (makedir (tackon AmIRCdir "UnusedPlugins")))
  224.         (if (> (exists (tackon AmIRCdir "UnusedPlugins/XDCC_Prefs")) 0) (delete (tackon AmIRCdir "UnusedPlugins/XDCC_Prefs")))
  225.         (rename (tackon AmIRCdir "Plugins/XDCC_Prefs") (tackon AmIRCdir "UnusedPlugins/XDCC_Prefs") (confirm) (prompt #MovingPluginConfiguration) (help))
  226.     )
  227. )
  228. (complete 16)
  229.  
  230.  
  231. ;** Install Arexx scripts
  232.  
  233. (set #dest (tackon AmIRCdir "Rexx"))
  234. (set #helpstring "Installing Kuang Eleven AREXX scripts")
  235. (Working #helpstring)
  236. (if (< (exists #dest) 2) (makedir #dest) )
  237.  
  238.  
  239. (if (= (getversion (tackon #dest "connected.amirx")) 0)
  240.     (copyfiles
  241.         (prompt #helpstring)
  242.         (help @copyfiles-help)
  243.         (source "Rexx")
  244.         (dest #dest)
  245.         (confirm)
  246.         (all)
  247.         (optional fail)
  248.     )
  249.     (
  250.         (foreach "Rexx" "#?.amirx"
  251.             (
  252.                 (set #srcfile (tackon "Rexx" @each-name))
  253.                 (copylib
  254.                     (prompt (cat "Install Script\n" #srcfile))
  255.                     (help @copylib-help)
  256.                     (source #srcfile)
  257.                     (dest #dest)
  258.                     (confirm)
  259.                     (optional fail)
  260.                 )
  261.             )
  262.         )
  263.         (complete 30)
  264.         (set #dest (tackon (tackon AmIRCdir "Rexx") "Pub"))
  265.         (foreach "Rexx/Pub" "#?.amirx"
  266.             (
  267.                 (set #srcfile (tackon "Rexx/Pub" @each-name))
  268.                 (copylib
  269.                     (prompt (cat "Install Script\n" #srcfile))
  270.                     (help @copylib-help)
  271.                     (source #srcfile)
  272.                     (dest #dest)
  273.                     (confirm)
  274.                     (optional fail)
  275.                 )
  276.             )
  277.         )
  278.         (complete 40)
  279.         (set #dest (tackon (tackon AmIRCdir "Rexx") "CTCP"))
  280.         (foreach "Rexx/CTCP" "#?.amirx"
  281.             (
  282.                 (set #srcfile (tackon "Rexx/CTCP" @each-name))
  283.                 (copylib
  284.                     (prompt (cat "Install Script\n" #srcfile))
  285.                     (help @copylib-help)
  286.                     (source #srcfile)
  287.                     (dest #dest)
  288.                     (confirm)
  289.                     (optional fail)
  290.                 )
  291.             )
  292.         )
  293.     )
  294. )
  295. (complete 50)
  296. (Working #installhelp)
  297. (copyfiles
  298.     (prompt #installhelp)
  299.     (help @copyfiles-help)
  300.     (source "Kuang_Eleven.guide")
  301.     (dest AmIRCdir)
  302.     (confirm)
  303.     (all)
  304.     (infos)
  305.     (optional fail)
  306. )
  307. (complete 51)
  308. (copyfiles
  309.     (prompt #installhelp)
  310.     (help @copyfiles-help)
  311.     (source "KSMaster.guide")
  312.     (dest AmIRCdir)
  313.     (confirm)
  314.     (all)
  315.     (infos)
  316.     (optional fail)
  317. )
  318. (copyfiles
  319.     (prompt #installhelp)
  320.     (help @copyfiles-help)
  321.     (source "AmiHunter.guide")
  322.     (dest AmIRCdir)
  323.     (confirm)
  324.     (all)
  325.     (infos)
  326.     (optional fail)
  327. )
  328. (complete 52)
  329. (copyfiles
  330.     (prompt #installhelp)
  331.     (help @copyfiles-help)
  332.     (source "ReadmeFirst.txt")
  333.     (dest AmIRCdir)
  334.     (confirm)
  335.     (all)
  336.     (infos)
  337.     (optional fail)
  338. )
  339. (complete 53)
  340. (set #multiview "run sys:utilities/multiview Installdata/Buttons.iff")
  341. (set #installbuttons "Would you like to install the 24 Special buttons for the AmIRC buttons window(recommended)?\nThis will overwrite your first 24 buttons.")
  342. (if (= (exists "SYS:Utilities/multiview") 1)
  343.     (
  344.         (set #multiviewvernum (getversion "SYS:Utilities/Multiview"))
  345.         (set #multiviewver (/ #multiviewvernum 65536))
  346.         (set #multiviewrev (- #multiviewvernum (* #multiviewver 65536)))
  347.         (set #newmultiview (OR (> #multiviewver 40) (AND (= #multiviewver 40) (>= #multiviewrev 8))))
  348.         (debug #newmultiview #multiviewver #multiviewver)
  349.         (if #newmultiview (set #multiview (cat #multiview " PORTNAME MULTIKUANG")))
  350.         (debug #multiview)
  351.         (textfile (dest "T:killmultiview.rexx") (append "/**/\nAddress MULTIKUANG QUIT") (safe))
  352.         (run #multiview (safe))
  353.     )
  354.     (set #installbuttons (cat #installbuttons "\n" #nomultiview))
  355. )
  356. (complete 55)
  357. (set #instbut (askbool (prompt #installbuttons) (help) (default 1)))
  358. (rexx "T:killmultiview.rexx" (safe))
  359. (complete 75)
  360. (set #amircfg (askfile (prompt #askconfig) (help) (default (tackon AmIRCdir "Default.AmIRCfg"))))
  361. (if (= (exists #amircfg) 2) (set #amircfg (tackon #amircfg "Default.AmIRCfg")))
  362. (set #newamircfg (tackon #k11dir "NewConfig"))
  363. (copyfiles
  364.     (source (tackon #k11dir "Config"))
  365.     (dest #k11dir)
  366.     (newname "Config.bak")
  367.     (optional fail)
  368. )
  369.  
  370. (working #modifyamircfg)
  371.  
  372. (run "SYS:System/Rexxmast >T:rexxmast" (safe))
  373. (textfile (dest "T:Kuang_11_amirdir") (append AmIRCdir) (safe))
  374. (textfile (dest "T:Kuang_11_amircfg") (append #amircfg) (safe))
  375. (textfile (dest "T:Kuang_11_newamircfg") (append #newamircfg) (safe))
  376. (textfile (dest "T:Kuang_11_installoptions") (append #instbut) (safe))
  377. (rexx (tackon "Installdata" "install.rexx") (confirm) (prompt #launchmodfier) (help) (safe))
  378. (complete 80)
  379.  
  380. (if (= (exists #newamircfg) 0) (exit (cat "Failed to create modified AmIRC configuration from :\n" #amircfg "\nto :\n" #newamircfg "\n\nA possible reason may be that the filenames have spaces in them.") (quiet)))
  381. (copyfiles
  382.     (source #amircfg)
  383.     (dest (pathonly #amircfg))
  384.     (newname (cat (fileonly #amircfg) ".bak"))
  385.     (optional fail)
  386. )
  387. (complete 81)
  388. (if (= (getenv "Kuang_11_rexxmast") 1) (startup "SYS:System/Rexxmast >NIL:" (prompt "The installer has found that RexxMast is not started on this system.\nWill now start it on your user-startup.") (help "RexxMast is essential to all AREXX scripts and should be run on startup\nWithout it,Kuang Eleven will not function AT ALL.\nUse this feature in the Installer to insert it to your user-startup.") (confirm)) )
  389. (set #sounddir (getenv "Kuang_11_sounddir"))
  390. (delete "ENV:Kuang_11_sounddir")
  391. (delete "T:Kuang_11_amircdir")
  392. (delete "T:Kuang_11_amircfg")
  393. (delete "T:Kuang_11_newamircfg")
  394. (delete "T:Kuang_11_installoptions")
  395. (delete "ENV:Kuang_11_rexxmast")
  396. (delete "T:rexxmast")
  397.  
  398. (delete #amircfg)
  399. (rename #newamircfg #amircfg)
  400.  
  401. (if (askbool (prompt #installsounds) (help) (default 1))
  402.     (
  403.         (working "Installing sounds")
  404.         (copyfiles
  405.             (prompt "Installing sounds to your sounds directory")
  406.             (help @copyfiles-help)
  407.             (source "InstallData")
  408.             (dest (askdir (prompt #wheresounddir) (help) (default #sounddir)))
  409.             (confirm)
  410.             (pattern "#?.WAV")
  411.             (optional fail)
  412.         )
  413.     )
  414. )
  415.  
  416. (complete 85)
  417. (if (= (exists (tackon #k11dir "Aliases")) 0) (set #installaliases 1))
  418.  
  419. (if (= (getversion (tackon #k11dir "Aliases")) 0)
  420.     (copyfiles
  421.         (source "InstallData/Aliases")
  422.         (dest #k11dir)
  423.         (optional fail)
  424.         (help @copyfiles-help)
  425.         (prompt "Installing Kuang Eleven aliases plugin configuration")
  426.         (confirm)
  427.     )
  428.     (copylib
  429.         (prompt "Installing Kuang Eleven aliases plugin configuration")
  430.         (help @copylib-help)
  431.         (source "InstallData/Aliases")
  432.         (dest #k11dir)
  433.         (confirm)
  434.         (optional fail)
  435.     )
  436. )
  437. (complete 86)
  438. (Working "Installing KMaster Kicks datafiles")
  439. (set #srcdir (tackon "InstallData" "KSKicks"))
  440. (set #dest (tackon #k11dir "KSKicks"))
  441. (if (< (exists #dest) 2) (makedir #dest))
  442. (foreach #srcdir "#?.ksm"
  443.     (
  444.         (set #srcfile (tackon #srcdir @each-name))
  445.         (copylib
  446.             (prompt (cat "Install Datafile\n" #srcfile))
  447.             (help @copylib-help)
  448.             (source #srcfile)
  449.             (dest #dest)
  450.             (confirm)
  451.             (optional fail)
  452.         )
  453.     )
  454. )
  455. (complete 89)
  456. (Working "Installing KMaster Sayings datafiles")
  457. (set #srcdir (tackon "InstallData" "KSSay"))
  458. (set #dest (tackon #k11dir "KSSay"))
  459. (if (< (exists #dest) 2) (makedir #dest))
  460. (foreach #srcdir "#?.ksm"
  461.     (
  462.         (set #srcfile (tackon #srcdir @each-name))
  463.         (copylib
  464.             (prompt (cat "Install Datafile\n" #srcfile))
  465.             (help @copylib-help)
  466.             (source #srcfile)
  467.             (dest #dest)
  468.             (confirm)
  469.             (optional fail)
  470.         )
  471.     )
  472. )
  473. (complete 93)
  474. (Working "Installing KMaster Greets datafiles")
  475. (set #srcdir (tackon "InstallData" "KSGreets"))
  476. (set #dest (tackon #k11dir "KSGreets"))
  477. (if (< (exists #dest) 2) (makedir #dest))
  478. (foreach #srcdir "#?.ksm"
  479.     (
  480.         (set #srcfile (tackon #srcdir @each-name))
  481.         (copylib
  482.             (prompt (cat "Install Datafile\n" #srcfile))
  483.             (help @copylib-help)
  484.             (source #srcfile)
  485.             (dest #dest)
  486.             (confirm)
  487.             (optional fail)
  488.         )
  489.     )
  490. )
  491. (complete 96)
  492. ;** Remove obsolete Kuang Eleven files
  493.  
  494. (set #dest (tackon AmIRCdir "Kuang_Eleven"))
  495. (working #delold #dest)
  496. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  497.  
  498. (set #dest (tackon AmIRCdir "Rexx/kuang11pub.amirx"))
  499. (working #delold #dest)
  500. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  501.  
  502. (set #dest (tackon AmIRCdir "Rexx/pager.amirx"))
  503. (working #delold #dest)
  504. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  505.  
  506. (set #dest (tackon AmIRCdir "Rexx/custum_ctcp.amirx"))
  507. (working #delold #dest)
  508. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  509.  
  510. (set #dest (tackon AmIRCdir "Rexx/borg.amirx"))
  511. (working #delold #dest)
  512. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  513.  
  514. (set #dest (tackon AmIRCdir "Rexx/butt.amirx"))
  515. (working #delold #dest)
  516. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  517.  
  518. (set #dest (tackon AmIRCdir "Rexx/momma.amirx"))
  519. (working #delold #dest)
  520. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  521.  
  522. (set #dest (tackon AmIRCdir "Rexx/philosophy.amirx"))
  523. (working #delold #dest)
  524. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  525.  
  526. (set #dest (tackon AmIRCdir "Rexx/pinkybrain.amirx"))
  527. (working #delold #dest)
  528. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  529.  
  530. (set #dest (tackon AmIRCdir "Rexx/rin.amirx"))
  531. (working #delold #dest)
  532. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  533.  
  534. (set #dest (tackon AmIRCdir "Rexx/splatt.amirx"))
  535. (working #delold #dest)
  536. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  537.  
  538. (set #dest (tackon AmIRCdir "Rexx/kinstall.amirx"))
  539. (working #delold #dest)
  540. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  541.  
  542. (set #dest (tackon AmIRCdir "Rexx/say.amirx"))
  543. (working #delold #dest)
  544. (if (> (exists #dest) 0) (delete #dest (prompt (cat #delold #dest)) (help) (confirm) (infos)))
  545. (complete 99)
  546. ; Finalise installation
  547.  
  548. (if (AND (= #installaliases 1) (= #kuangwashere 1))
  549.     (
  550.     (copyfiles
  551.         (prompt "Installing second phase installation initiator")
  552.         (help @copyfiles-help)
  553.         (source "InstallData/Startup.amirx")
  554.         (dest (tackon AmIRCdir "Rexx"))
  555.         (optional fail)
  556.         (confirm)
  557.         (safe)
  558.     )
  559.     (set @execute-dir AmIRCdir)
  560.     (message #RunAmIRC)
  561.     (run "run AmIRC" (safe))
  562.     )
  563. )
  564. (complete 100)
  565. (exit)
  566.